examples/CocoaBridge/SCNSObject control actions.scd

   1
   2 // blackrain
   3 // NSButton
   4 w = SCNSObject("NSWindow", "initWithContentRect:styleMask:backing:defer:", [ Rect(100,600,500,200), 10, 2, 1]);
   5
   6 w.invoke("makeKeyAndOrderFront:", [nil], true);
   7 w.invoke("setTitle:", [ "Hello, World!" ], true);
   8
   9
  10 b = SCNSObject("NSButton", "initWithFrame:", [ Rect(10,10,75,22) ]);
  11 b.invoke("setBezelStyle:", [10], true);
  12
  13 v = w.invoke("contentView");
  14 v.invoke("addSubview:", [ b ], true);
  15
  16
  17 w.setDelegate;
  18 (
  19         // - (void)buttonAction:(id)sender;
  20         w.nsDelegate.addMethod("buttonAction:", "v", "@", { arg method, args;
  21                 var btn = args.at(0).asNSReturn; // args.at(0) is the button
  22
  23                 btn.invoke("state").postln;
  24
  25         });
  26 )
  27
  28 b.invoke("setTarget:", [ w.nsDelegate ], false);
  29 b.invoke("setAction:", [ "buttonAction:" ], false); // SEL are recognized now
  30
  31 //
  32
  33 w.release;
  34
  35 SCNSObject.dumpPool;
  36
  37 SCNSObject.freePool;
  38
  39 // NSSlider
  40 w = SCNSObject("NSWindow", "initWithContentRect:styleMask:backing:defer:", [ Rect(100,650,500,40), 10, 2, 1]);
  41
  42 w.invoke("makeKeyAndOrderFront:", [nil], true);
  43 w.invoke("setTitle:", [ "Hello, World!" ], true);
  44
  45
  46 l = SCNSObject("NSSlider", "initWithFrame:", [ Rect(10,10,480,22) ]);
  47
  48 v = w.invoke("contentView");
  49 v.invoke("addSubview:", [ l ], true);
  50
  51
  52 w.setDelegate;
  53 (
  54         w.nsDelegate.addMethod("sliderAction:", "v", "@", { arg method, args;
  55                 var slider = args.at(0).asNSReturn;
  56
  57                 slider.invoke("doubleValue").postln;
  58
  59         });
  60 )
  61
  62 l.invoke("setTarget:", [ w.nsDelegate ], false);
  63 l.invoke("setAction:", [ "sliderAction:" ], false);
  64
  65
  66
  67 SCNSObject.dumpPool;
  68
  69 SCNSObject.freePool;